﻿Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data.OleDb

Partial Class Interfaz_VisualizaPresupuesto
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       
    End Sub

#Region "Funciones"
    Private Sub mostrarReporte()
        Dim nuevoReporte As New ReportDocument
        nuevoReporte = DirectCast(Session("CRPresupueto"), ReportDocument)
        CRview.ReportSource = nuevoReporte
    End Sub
#End Region

#Region "Botones"
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        mostrarReporte()
    End Sub
#End Region
    

    
End Class
